home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Shell Folders.xpl < prev    next >
Text File  |  2001-09-01  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="3"
  4. "UIPATH"="System\File System\Folders\Data"
  5. "NAME"="General Folders"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.01"
  8. "TEXT 1"="Personal Files"
  9. "TEXT 2"="Program Data"
  10. "TEXT 3"="Desktop"
  11. "DESCRIPTION 1"=""Personal Files" specifies the folder where your files from Lotus 1-2-3, Microsoft Excel, Microsoft Word, Corel Paint and so on are located."
  12. "DESCRIPTION 2"=""Program Data" is used by new applications from Microsoft for hidden but customized files. For example, Internet Explorer stores the Quick Launch bar links there."
  13. "DESCRIPTION 3"="Desktop" is the folder used for nearly all files on your workplace, except some system icons (e.g. trash can)."
  14. "DESCRIPTION 4"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  22. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  23.  
  24. 'sP_IE="HKCU\Software\Microsoft\Internet Explorer\"
  25. 'sV_IE_DL="Download Directory"
  26.  
  27. Sub Plugin_Initialize 
  28.  s=RegReadValue(sp1 & "Personal")
  29.  SetUIElement 1,s
  30.  
  31.  s=RegReadValue(sP1 & "AppData")
  32.  SetUIElement 2,s
  33.  
  34.  s=RegReadValue(sP1 & "Desktop")
  35.  SetUIElement 3,s
  36. End Sub
  37.  
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42.  
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  s=GetUIElement(1)
  46.  Call RegWriteValue(sP1 & "Personal",s,1)
  47.  Call RegWriteValue(sP2 & "Personal",s,1)
  48.  
  49.  s=GetUIElement(2)
  50.  Call RegWriteValue(sP1 & "AppData",s,1)
  51.  Call RegWriteValue(sP2 & "AppData",s,1)
  52.  
  53.  s=GetUIElement(3)
  54.  Call RegWriteValue(sP1 & "Desktop",s,1)
  55.  Call RegWriteValue(sP2 & "Desktop",s,1)
  56.  
  57.  
  58.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  59.  Call Logoff() 'Required because of ActiveDestop and other crap
  60. End Sub
  61.  
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.  
  66.  
  67.  
  68.